binaire
binaire(n)
Func
Local mat,m1,m2,k,a
[[false][true]]àmat
For k,1,n-1
      newMat(rowDim(mat),1)àm1
      newMat(rowDim(mat),1)àm2
      For a,1,rowDim(m2)
            falseàm1[a,1]
            trueàm2[a,1]
      EndFor
      augmvert(augment(m1,mat),augment(m2,mat))àmat
EndFor
mat
EndFunc